home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rgbdem1a / modrgb.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-27  |  803 b   |  28 lines
  1. Attribute VB_Name = "modRGB"
  2. '************************************************
  3. ' Module : modRGB
  4. ' Author : Yvo van Dillen
  5. ' Info   : A RGB module
  6. '          If you ever want to create a painting
  7. '          program( or something... )
  8. '          You are going to need this module.
  9. '          For any questions or other code
  10. '          mail to : yvo23@hotmail.com
  11. ' Functions:
  12. ' GetRgb( color , red  , green , blue )
  13. '************************************************
  14.  
  15. Sub GetRgb(ByVal color As Long, ByRef red As Integer, ByRef green As Integer, ByRef blue As Integer)
  16.     Dim temp As Long
  17.     
  18.     temp = (color And 255)
  19.     red = temp And 255
  20.     
  21.     temp = Int(color / 256)
  22.     green = temp And 255
  23.     
  24.     temp = Int(color / 65536)
  25.     blue = temp And 255
  26.        
  27. End Sub
  28.